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a 0001 ZTITLE ‘ED 6 oat ogg - look for a keyword' 

3 ¢ Boe MODULE EDTSCHMKEYW ' Look af a keyword 

: ? BR87 IDENT = *v04-000' ! File: CHMKEYWRD.BLI Edit: J8S1009 
: 5 0005 1 BEGIN 

3 6 0006 1! 

3 4 sat 4 } Lee RRARAAAAARRERAREEAARA ERAS 
: 'e 

3 9 0009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
; 0010 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
; 1} oot} : -” ALL RIGHTS RESERVED. * 
Py ¥ 
3 i§ $018 1 !* THIS SOFTWARE a3 FURNISHED UNDER A LICENSE AND MAY BE USED AND copies * 
; 0014 1 !* QNLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
. 0015 1 !* INCLUSION OF tH ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 0017 1 !* QO RSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: 18 eels ' se TRANSFERRED. * 
3 '® * 
: 20 0020 1 !* —- INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
: 21 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
$ $$ oh : :* CORPORATION. s 
: ‘a ® 
; 24 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
P 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; «& 0026 1 !* * 
; ae 0027 1 !* * 
2 28 C028 1 came ee eee RRA REAR A ARE RA ERE REE RER AAA REAR AAA ERA 
F 9 0029 1! 

F $3 0030 1 

fo 0031 1 !++ : 

co 0032 1 ! FACILITY: EDT -=- The DEC Standard Editor 

: 2 0033 1! 

; | O34 0034 1 ! ABSTRACT: 

—) 0035 1! 

3 36 0036 1! This module compares the command buffer contents to a table 

:. 0037 1! of keywords. 

; = 0038 1! 

3 4 84 : ENVIRONMENT: Runs at any access mode - AST reentrant 

3 : sag : : AUTHOR: Bob Kushlis, CREATION DATE: Unknown 

3 re 0045 1 ! MODIFIED BY: 

s 0044 1! 

oon 0045 1 ! 1-001 - Original. DJS 04-Feb-1981. This module was created b 

: 46 0046 1! extracti “ the routine EDTS$KWORD from module CHANGE.BLI. 

3; 667 0047 1 ! 1-002 = Regularize headers. JBS 03-Mar-1981 

: 68 0048 1 ! 1-004 - Change to a table arranged alphabetically. STS 21-Sep-1982 

; «649 onee 1 ! 1-005 = Move the keywords here from EDTSCHMPARSE, to reduce the program 

: & 50 1! size on the PDP-11. Also, put an underscore in the entry point name. JBS 29-Sep-1982 
>. ae 0051 1 ! 1-006 = Accept lower case et as equivalent to upper case, and improve error 
; 0052 1! Rays JBS 01-0ct-1 

 *: a 0053 1 ! 1-007 - Make this routine pon \sren~indegendent, JBS 01-Oct-1982 

: «654 0054 1 ! 1-008 = Add conditionals for WPS and JBS 10-Feb-1983 

; = 0055 1 ! 1-009 = Don't forget the SUPPORTS Library. JBS 11-Feb-198 

; 2 8028 1 !-- 

oa 0057 1 
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EDTSCHMKEYWRD - Look for a keyword 18-sep-19 4 90:03:32 
Declarations 14-Sep*1984 12:22:37 
058 1 X£SBITL ‘Declarations’ 
$36 1! 
060 1 ! TABLE OF CONTENTS: 
061 1! 
poe 1 
06 REQUIRE 'EDTSRC:TRAROUNAM' ; 
9808 1 FORWARD ROUTINE 
Fa 'e4 : EDTSSKEY_WORD : NOVALUE; ! Compare the command buffer contents to a table of keywords 
8206 1! 
e444 : } INCLUDE FILES: 
0509 1 
ar : REQUIRE ‘EDTSRC:EDTREQ'; 
Seed : LIBRARY ‘EDTSRC:TRANSLATE'; 
0648 1 LIBRARY ‘EDTSRC:SUPPORTS'; 
0649 1 
0650 1! 
0651 1 ! MACROS: 
0652 1! 
0653 1! NONE 
0654 1! 
0655 1 ! EQUATED SYMBOLS: 
0656 1! 
0657 1 
0658 1 FIELD 
0659 1 KEY_WORD_FIELD = 
0660 1 SET 
0661 1 KEY_WORD_NEXT = CO, 0, %BPADDR, 0) 
0662 1 “WORD-NUM = CEBPADDR/é 0, 8, 03 
0663 1 KEY-WORD-LEN = C(ZBPADDR/8), 8, 8, 0) 
0664 1 KEY-WORD-POINTER = C(XBPADDR/8) +°2, 6, ZBPADDR, 0) 
0665 1 TES; 
0666 1 
0667 1! 
0668 1 ! OWN STORAGE: 
0669 1! 
0670 1 !+ 
oe : Define the keywords used to make up change mode sub-commands. 
0675 1 ! Each record in this table contains a address pointer to the next ke 
0674 1! with this alphabetic character the value of the keyword, its lengt 
8072 : } and the ASCII characters which comprise it. 
0677 1! The table is a concatenation of keyword entries. Each 
0678 1 ! consists of a pointer to the next keyword to examine if 
0679 1 ! this one should fail, a keyword number byte, length byte, 
0680 1 ! and the ASCII text for the naywore. A 0 length byte 
0681 1 ! marks the end of the table. Letters in keywords are 
Bons 1 ! all upper case. 
6 1 !- 
0684 1 
0685 1 BIND 
0686 1 ADDR_BASE = UPLIT (0), 


88s 
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EDTSCHMKEYWRD EDTSCHMKEYWRD = Look for a keyword 1h-se -1984 03:17 AX-11 Bliss-32 V4.0-742 Page 
V04-000 Declarations 4 12-8 08- 1 3b2 90393 :85 ODT SREICHAKE TURD 131 . (2). 
116 687 1 END_VERBS = UPLIT ( 
11 688 1 BYTE(0), BYTE(0), 0), 
118 0689 1 ASC_VERB = UPLIT ( 
119 0690 1 END_VERBS = ADDR_BASE, BYTE(VERB_K_ASC), BYTE(3), BYTE("ASC')), 
120 0691 1 ADV_VERB = UPLIT ( 
121 0692 1 ASC_VERB = ADDR_BASE, BYTE(VERB_K_ADV), BYTE(3), BYTE('ADV')), 
1 ¢ 0693 1 A_VERBS”= UPLIT ( 
1 0694 1 ADV_VERB = ADDR_BASE, BYTE(VERB_K_APPEND), BYTE(6), BYTE('APPEND')), 
124 0695 1 BELL_VERB = UPLIT ( 
125 0696 1 ND_VERBS = ADDR_BASE, BYTE(VERB_K_BELL), BYTE(4), BYTE('BELL"')), 
126 0697 1 B_VERBS"= UPLIT ( 
127 698 1 BELL_VERB - ADDR_BASE, BYTE(VERB_K_BACK), BYTE(4), BYTE('BACK')), 
128 699 1 CUT_VERB™= UPLIT ( 
129 0700 1 END_VERBS = ADDR_BASE, BYTE(VERB_K_CUT), BYTE(3), BYTE('CUT")), 
130 0701 1 CLSS_VERB = UPLIT ( 
131 Ore 1 CUT_VERB = ADDR_BASE, BYTE(VERB_K_CLSS), BYTE(4), BYTE('CLSS")), 
132 0703 +1 CHGL_VERB = UPLIT ( 
133 0704 1 CLSS_VERB = ADDR_BASE, BYTE(VERB_K_CHGL), BYTE(4), BYTE('CHGL')), 
134 0705 1 CHGU_VERB = UPLIT ( 
135 0706 1 THGL_VERB = ADDR_BASE, ®YTE(VERB_K_CHGU), BYTE(4), BYTE('*CHGU')), 
136 0707 1 C_VERBS = UPLIT ( 
137 0708 1 CHGU_VERB = ADDR_BASE, BYTE(VERB_K_CHGC), BYTE(4), BYTE(*CHGC')), 
138 0709 1 D_VERB ="UPLIT ( 
139 0710 1 ND_VERBS = ADDR_BASE, BYTE(VERB_K_DELETE), BYTE(1), BYTE('D')), 
140 0711 «1 DUPC_VERB = UPLIT ( 
141 Orig 1 VERB = ADDR_BASE, BYTE(VERB_K_DUPC), BYTE(4), BYTE('DUPC')), 
Fy 0713 «#1 DMOV_VERB = UPLIT™ ( 
14 0714 1 BuPC_VERB = ADDR_BASE, BYTE(VERB_K_DMOV), BYTE(4), BYTE('DMOV')), 
144 0715 1 DLWC_VERB = UPLIT ( 
145 0716 1 MOV_VERB = ADDR_BASE, BYTE(VERB_K_DLWC), BYTE(4), BYTE("DLWC')), 
146 0717 1 DEFK_VERB = UPLIT ( 
147 0718 #1 LWC_VERB - ADDR_BASE, BYTE(VERB_K_DEFK), BYTE(4), BYTE("DEFK')), 
148 0719 #1 DATE_VERB = UPLIT ( 
149 0720 1 BEFK_VERB = ADDR_BASE, BYTE(VERB_K_DATE), BYTE(4), BYTE("DATE')), 
150 0721 #1 D_VERBS = UPLIT ( 
151 O7ee 1 DATE_VERB = ADDR_BASE, BYTE(VERB_K_DESEL), BYTE(5), BYTE('DESEL')), 
152 0723 1 EX_VERB = UPLIT ( 
153 0724 1 END_VERBS = ADDR_BASE, BYTE(VERB_K_EXIT), BYTE(2), BYTE('EX")), 
154 0725 1 E_VERBS"= UPLIT ( wae 
155 0726 1 EX_VERB = ADDR_BASE, BYTE(VERB_K_EXT), BYTE(3), BYTE("EXT')), 
156 0727 #1 F_VERBS = UPLIT ( ' 
157 0728 1 END_VERBS = ADDR_BASE, BYTE(VERB_K_FILL), BYTE(4), BYTEC"FILL')), 
158 0729 1 H_VERBS"= UPLIT ( 
159 07 0 1 END_VERBS = ADDR_BASE, BYTE(VERB_K_HELP), BYTE(4), BYTE('HELP')), 
160 731 «1 I_VERBS"= UPLIT ( 
161 O73¢ 1 END_VERBS = ADDR_BASE, BYTE(VERB_K_INSERT), BYTE(1), BYTE('I")), 
162 0733 1 K_VERBS"= UPLIT ( es 
163 0734 1 END_VERBS = ADDR_BASE, BYTE(VERB_K_KS), BYTE(2), BYTE('KS"')), 
164 0735 1 P_VERBS”= UPLIT ( p - 
165 0736 «1 END_VERBS = ADDR_BASE, BYTE(VERB_K_PASTE), BYTE(S), BYTE('PASTE")), 
166 0737 1 Q_VERBS™= UPLIT ( 5 : 
167 0738 #1 END_VERBS = ADDR_BASE, BYTE(VERB_K_QUIT), BYTE(4), BYTE('QUIT")), 
168 0739 1 R_VERB = UPLIT ( ae 
169 0740 1 END_VERBS - ADDR_BASE, BYTE(VERB_K_REPLACE),  BYTE(1), BYTE<'R')), 
170 gre] 1 R_VERBS”~= UPLIT ( 
171 yee 1 R_VERB = ADDR_BASE, BYTE(VERB_K_REF), BYTE(3), BYTE('REF")), 
172 0743 1 S_VERB = UPLIT ( 
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i 1 END_ = = ADDR_BASE, BYTE(VERB_K_SUBS), 
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BYTE('S")), 
BYTE('SN')), 


BYTE(1), 


45 1 SN_VERB = 
VERB = ein BASE, BYTE(VERB_K_SN), BYTE(2), 


ODmnroo INS 


“SHR_VERB = ADDR_BASE, 
SEL_VERB = 


“SHL_VERB = ADDR_BASE, 
= UPLIT 


2D 
coc 
7 wie 
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ND_VERBS = ADDR_BASE, 
TD_VERB = UPLIT ( 

TI_VERB = ADDR_BASE, 
TC_VERB = UPLIT ( 

TD_VERB = ADDR_BASE, 
TOP_VERB = UPLIT ( 

TC_VERB = ADDR_BASE, 


BYTE(VERB_K_SHR), 
BYTE(VERB_K_SHL), 
BYTE(VERB_K_SEL), 
BYTE(VERB_K_SSEL), 
BYTE(VERB_K_T1), 
BYTE(VERB_K_TD), 
BYTE(VERB_K_TC), 
BYTE(VERB_K_TOP), 


BYTE(3), 
BYTE(3), 
BYTE(3), 
BYTE(4), 
BYTE(2), 
BYTE(2), 
BYTE(2), 
BYTE(3), 


BYTE(*SHR')), 
BYTE('SHL")), 
BYTE('SEL")), 
BYTE(*SSEL")), 
BYTEC'TI")), 
BYTE('TD')), 
BYTE('TC’)), 
BYTE('TOP')), 


TAB_VERB = UPLIT 
TOP_VERB - ADDR_BASE, 
TADJ_VERB = UPLIT ( 
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BYTE(3), 
BYTE(4), 
BYTE(S), 
BYTE(4), 
BYTE(4), 
BYTE(4), 
BYTE(S), 
BYTE(1), 


BYTE('TAB')), 
BYTE('TADJ")), 
BYTE(*TGSEL')), 
BYTE(*UNDW')), 
BYTE(*UNDL')), 
BYTE(*UNDC')), 
BYTE('XLATE')), 
BYTE('*")); 


BYTE(VERB_K_TAB), 
TAB_VERB = ADDR_BASE, BYTE(VERB_K_TADJ), 
T_VERBS = UPLIT ( 

TADJ VERB = ADDR_BASE, BYTE(VERB_K_TGSEL), 
UNDW_ VERB = UPLIT ( 

END VERBS = ADDR_BASE, BYTE(VERB_K_UNDW), 
UNDL_VERB = UPLIT ( 

ONDW_VERB = ADDR_BASE, BYTE(VERB_K_UNDL), 
U_VERBS = UPLIT ( 

UNDL_VERB = ADDR_BASE, BYTE(VERB_K_UNDC), 
X_VERBS = UPLIT ( 

ND_VERBS = ADDR_BASE, BYTE(VERB_K_XLATE), 
CARET VERB = UPLIT ( 

END_VERBS - ADDR_BASE, BYTE(VERB_K_CC), 
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BIND 
VERB_TABLE = 
A_VERBS 


ADDR~BASE, 
5 = ADDR7BASE 

ND_VERBS = ADDR BASE, 
_VERBS = ADDR_BASE, 
I~VERBS = ADDR~BASE 


VERBS - 
ERD_VERBS = ADDR_BASE, 
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“VERBS = ADDR-BASE, 
VERBS = ADDR_BASE, 
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v04-000 Declarations 127908- 1382 90:95:48 ADT SREICHAKE TURD BL i 4 _ (2) 


; 0 801 1 T_VERBS = ADDR_BASE, 
: 1 E0¢ 1 U_VERBS = ADDR_BASE 
; é 803 1 END_VERBS = ADDR_BASE, 
; 804 1 END_VERBS = ADDR_BASE, 
: 4 0805 1 X_VERBS = ADDR_BASE 
> 235 0806 1 END_VERBS = ADDR_BASE, 
; 236 0807 1 END_VERBS = ADDR_BASE, 
: § 7 0808 1 END_VERBS = ADDR_BASE, 
; 8 0809 1 END_VERBS = ADDR_BASE, 
s goF 0810 1 END_ VERBS = ADDR_BASE 
: 240 9811 1 CARET_VERB = ADDR_BASE); 
\3 cg 081 7: oe 
3 tt Baie : The following are keywords which are entities. 
> 245 0816 1 ! The values must be separated by two so we can add the direction to 
; 246 0817 1 ! the entity for use as a case index. 
; 248 0819 1 
: 249 0820 1 BIND 
; 250 0821 1 END_ENTITY = UPLIT ( 
s. eo) Oas§ 1 ° BYTE(O), BYTE(O), 0), 
; emé 0823 (1 BW_ENT = UPLIT ( 
: 253 0824 1 ND_ENTITY = ADDR_BASE, BYTE(ENT_K_BW), BYTE(2), BYTE('BW')), 
> 254 0825 1 BR_ENT = UPLIT ( 
3; 255 0826 1 BW_ENT = ADDR_BASE, BYTE(ENT_K_BR), BYTE(2), BYTE("BR')), 
; 256 0827 1 BL_ENT = UPLIT ( 
3. @or 0828 1 NT = ADDR_BASE, BYTECENT_K_BL), BYTE(2), BYTE(*BL")), 
; 258 0829 1 BPAR_ENT = UPLIT 
, a7 0830 1 L_ENT = ADDR_BASE, BYTE (ENT_K_BPAR), BYTE(4), BYTE("BPAR')), 
; 260 0831 1 BSEN_ERT = UPLIT T 
; 261 0832 1 BPAR_ENT - ADDR_BASE, BYTE(ENT_K_BSEN), BYTE(4), BYTE('BSEN')), 
; 262 0833 1 B_ENTS = UPLIT 
; 263 0834 1 BSEN_ENT = ADDR_BASE, BYTE(ENT_K_BPAGE), BYTE(5), BYTE("BPAGE")), | 
> 264 0835 1 C_ENTS = UPLIT ( 
3 203 pose 1 END_ENTITY = ADDR_BASE, BYTE(ENT_K_CHAR), BYTE(1), BYTE('C’)), 
> 266 0837 1 EW_ENT = UPLIT ( 
; 267 0838 1 END_ENTITY = ADDR_BASE, BYTE(ENT_K_EW), BYTE(2), BYTE("EW')), 
; 268 0839 1 EL_ENT = 
; 269 0840 1 EW_ENT = ADDR_BASE, BYTECENT_K_EL), BYTE(2), BYTEC"EL")), 
; 270 0841 1 ER_ENT = UPLIT ( 
; 271 943 1 L_ENT = ADDR_BASE, BYTECENT_K_ER), BYTE(2), BYTE('ER')), 
; sie 084 1 EPAR_ERT = UPLIT T 
; 7 Bee 1 ENT - ADDR_BASE, BYTECENT_K_EPAR), BYTE(4), BYTE("EPAR')), 
3 74 845 1 ESEN_ERT = UPLIT T 
; 75 0846 1 EPAR_ENT - ADDR_BASE, BYTE(ENT_K_ESEN), BYTE(4), BYTE("ESEN')), 
; 376 0847 1 E_ENTS ="UPLIT ( 
E 77 0848 1 ESEN_ENT - ADDR_BASE, BYTE(ENT_K_EPAGE), BYTE(5), BYTE("EPAGE")), 
; $78 0849 1 LLENTS = UPLIT ( 
: 279 0850 1 END_ENTITY = ADDR_BASE, BYTEC(ENT_K_LINE), BYTE(1), BYTE("L")), 
> 280 0851 1 N_ENTS = UPLIT ( 
3; al B26 1 END_ENTITY = ADDR_BASE, BYTEC(ENT_K_NL), BYTE(2), BYTE("NL")), 
; Ht 85 1 PAR_ENT = UPLIT ( ‘ > 
; a 854 1 END_ENTITY = ADDR_BASE, BYTE(ENT_K_PAR), BYTE(3), BYTE("PAR')), 
3 284 855 1 P_ENTS = UPLIT ( 
;: 85 329 1 WAR_ENT = ADDR_BASE, BYTE CENT_K_PAGE), BYTE(4), BYTE("PAGE')), 
; 286 0857 1 SR_ENT = UPLIT ( 


| 
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—Vv06-000 Declarations 14-Sep-1984 EDT.SRCICHMKEYWRD.BLI;1 (2). 
87 p68 1 END_ENTITY = ADDR_BASE, BYTECENT_K_SR), BYTE(2), BYTEC’SR')), 
88 859 1 S_ENTS = UPLIT ( 
89 0860 1 SR_ENT = ADDR_BASE, BYTE(ENT_K_SEN), BYTE(3), BYTE('SEN')), 
90 61 1 VENTS = UPLIT ( 
91 6¢ 1 END_ENTITY = ADDR_BASE, BYTE(ENT_K_VERT), BYTE(1), BYTE('V")), 
3 65 1 WLENTS = UPLIT ( - 
9 64 1 END_ENTITY = ADDR_BASE, BYTECENT_K_WORD), BYTE(1), BYTE('W')); 
94 0865 1 
95 Bo08 1 BIN 
96 0867 1 ENTITY TABLE = UPLIT 
297 0868 1 LENTS = ween _BASE, 
98 p86? 1 C"ENTS = ADDR-BASE 
99 870 1 END ENTITY = ADDR_BASE 
00 0871 1 E_ ERTS = ADDR_BASE 
301 087¢ 1 END_ENTITY - PASE ce 
$08 0875 «#1 END_ENTITY = ADDR_BASE, 
30 0874 1 END-ENTITY = ADDR~BASE. 
304 0875 1 END-ENTITY = ADDR~BASE, 
05 0876 1 END-ENTITY = ADDR~BASE, 
306 0877 1 END rity - ADDR_BASE, 
307 0878 1 L_ERTS - BASE, 
308 0879 1 END_ENT ITY - KODR_BASE, 
309 0880 1 N_ERTS = ADDR_BASE, 
310 0881 1 END_ENTITY = ADDR BASE, 
311 0882 1 P_ERTS = ADDR 
ag 0883 1 END_ENTITY = ADDR _BASE, 
31 0884 1 END-ENTITY = ADDR-BASE, 
314 0885 1 S_ENTS - ASE, 
315 08 1 END_ENTITY - ADDR BASE, 
316 0887 1 END-ENTITY = ADDR “BASE, 
317 0888 1 V_ERTS = ASE 
318 0889 1 WIENTS = ADDR7BASE); 
319 0890 1 
320 0891 1! 
321 0892 1 ! EXTERNAL REFERENCES: 
322 0893 1! d 
323 0894 1! In the routine 
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/ V04-000 EDTSSKEY_WORD = look for a key word 14-Sep-1984 12:22:37 EDT. SRCJICHMKEYWRD.BLI; (3) 
r 2 $882 ! ZSBTTL ‘EDTSSKEY_WORD = Look for a key word’ 

: 327 O89? 1 GLOBAL ROUTINE EDTSSKEY_WORD ( | book for a key word 

3 8 443 1 TABLE _NO, ' 1 = verb table, 2 = entity table 

3 9 0899 1 KEY_NOM ! Key number 

; , 245 : ) : NOVALUE = 

3 2 090¢ | Its 

: zz B38? ! FUNCTIONAL DESCRIPTION: 

; 335 0905 1! This routine scans a table of keywords, astonst ine to find a match 

: 6 0906 1! in the current ae buffer pointed to by EDTSSA_CMD_BUF. 

: ‘ 34 44 : The comparison is case blind. 

a) 0909 1 | FORMAL PARAMETERS: 

: 341 0911 1! TABLE_NO The number of the keyword table to use. 1 = use the 

; rx} Bag ' } verb table, 2 = use the entity table. 

; 344 0914 1! KEY_NUM The returned value for the number of the entity or 

> 345 0915 1! verb which matched from the table. Zero indicates 

3 $9 pate : no match. 

; 348 o918 1 { IMPLICIT INPUTS: 

; 350 0920 1! EDTSSA_CMD_END 

; 331 0921 EDT$S$A_CMD—BUF 

; 358 0998 IMPLICIT OUTPUTS: 

; 355 0925 1 EDTS$$A_CMD_BUF \ 

: 357 0927 1 ‘| ROUTINE VALUE: 

; 358 0928 1! 

; 360 0980 1 | — 

; 361 0931 | i SIDE EFFECTS: 

: 365 0933 1: NONE 

; 364 0934 1! 

; 365 0935 1 !-- 

; 366 0936 1 

: $07 a4 44 2 BEGIN 

ot oo in a oe 

; 571 L 0941 ; Z1F_ SUPPORT _VT220 

: ” 094 EDTS$B_CHAR_INFO : BLOCKVECTOR (256, 1, BYTE], ! Information about each character 

i Ba ge 

: 376 0946 EDTSSA_CMD_END, ! End of command pointer 

: 377 0947 EDTSS$A_CMD_BUF ; ! Command string pointer 

: 8 9949 CAL 

; 380 095 KW_POINTER, 

; 381 0951 FIRST_CHAR, 


—_——————_ ee = . 
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, ¥04-000 EDISSKEY WORD - look for a key word 12-808- 138s 99393345 feoT.sRe CHMKEYWRD.BLI; ’ (3) 
; 3 9 TABLE _OFFSET, 
(OBR as 
le 84 954 TABLE, 
; 385 955 TABLE PTR : REF BLOCK C, BYTE] FIELD (KEY_WORD_FIELD), 
: 386 0328 C_POINTER; 
; sor O32 
; 88 228 -KEY_NUM = 0; 
; 389 095 C.POINTER = .EDTSSA_CMD_BUF ; 
; 90 0960 FIRST_CHAR = CHSRCHAR_A~(C_POINTER); 
; 39 L 096 %IF SUPPORT_VT220 
; + 9967 ZTHEN 
; 33 0965 IF .EDT$$B_CHAR_INFO C.FIRST_CHAR, 0, 0, 1, 0] THEN FIRST_CHAR = .FIRST_CHAR = %C'a’ + XC'A'; | 
. | 
; 397 U 0967 ZELSE 
: 398 U 0968 
; +44 Y 0968 IF ((.FIRST CHAR GEQ XC'a') AND (.FIRST_CHAR LEQ %C'z')) THEN FIRST_CHAR = .FIRST_CHAR = %C'a’ + ZC'A‘; | 
3; 401 0971 2FI 
3 402 0972 2 
3; 403 0975 CASE .TABLE_NO FROM 1 TO 2 OF 
3 404 0974 SET 
; 405 0975 
> 4 0976 ¢ C1]: 
; 407 0977 BEGIN 
: 40 0978 3 
3 ret 4 3444 ; IF ((.FIRST_CHAR LSS %C'A') OR (.FIRST_CHAR GTR %0.°*')) THEN RETURN; 
> 411 0981 3 TABLE = VERB_TABLE; 
> 412 0982 3 TABLE_OFFSET~= (.FIRST_CHAR - %C'°A')*(%BPADDR/8); 
3 413 0983 3 TABLE_PTR = .(. TABLE +. TABLE_OFFSET) + ADDR_BASE; | 
> 414 0984 2 END; 
; 6415 0985 2 
; 416 0986 $ C2] : 
> 417 0987 BEGIN 
: 418 0988 ; 
; rth oa ; IF ((.FIRST_CHAR LSS %C'B') OR (.FIRST_CHAR GTR %C'W')) THEN RETURN; | 
3 421 0991 3 TABLE = ENTITY_TABLE; 
3 422 0992 3 TABLE_OFFSET ="(.FIRST_CHAR - %C'B')*(XBPADDR/8); 
> 423 0993 3 TABLE“PTR = .(. TABLE +7. TABLE_OFFSET) + ADDR_BASE; 
3 424 0994 2 END; 
3 $s? 0995 
: 426 0996 COUTRANGE) : 
: 427 0997 ASSERT (0); 
; 428 0998 TES; 
; 499 0999 
: 430 1000 WHILE (.TABLE_PTR CKEY_WORD_LEN] NEQ 0) DO 
> 431 1001 BEGIN 
3; 432 100 KW_POINTER = TABLE_PTR CKEY_WORD_POINTER); 
3: 433 100 C_POINTER = .EDT$$A_CMD_BUF; 
ie as rn 
; 436 190 : IF CHSPTR_LEQ (CHSPLUS (.C_POINTER, .TABLE_PTR CKEY_WORD_LEN]), .EDTSSA_CMD_END) 
> 6 1 4 
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-v04-000 EDTS$KEY_WORD = look for a key word 132800=138 93:93:35 LEDT SREICHAKETWRD BL 14 00? 153 
(; 439 1009 4 
$440 1910 4 INCR I FROM 1 TO .TABLE_PTR CKEY_WORD_LEN] DO : 
> 441 1011 5 BEGIN : 
is 446 13ig : 
1s 66 1013 § LOCAL ‘ 
OB po ! 
; aug 1916 3 CHAR = CHSRCHAR_A (C_POINTER); | 
: 448 L 1018 3 %IF SUPPORT_VT220 | 3 
es te 
; 491 19 1 ; IF .EDTS$B_CHAR_INFO C.CHAR, 0, 0, 1, 0] THEN CHAR = .CHAR = XC'a’ + XC'A'; | ; 
oe ye fe by 
: 455 u 1025 § IF ((.CHAR GEQ %C'a") AND (.CHAR LEQ %C'z")) THEN CHAR = .CHAR = %C'a’ + 3C'A'; | ; 
> 456 U 1026 5 : 
Bi caa |: s be : 
: 459 1989 5 IF (.CHAR NEQ CHSRCHAR_A (KW_POINTER)). THEN FOUND = 0; | 2 
; 460 1030 5 : 
2 ee os | ii 
: 46 1033 4 IF_.FOUND | : 
Bere 1985 THEN REGIN | 
; 466 1036 5 “KEY_NUM = .TABLE_PTR CKEY_WORD_NUM); | ; 
3 pe IOs 2 Skip over the keyword. 3 
: 470 1040 5° EDTSSA_CMD_BUF = CHSPLUS (.EDTSS$A_CMD_BUF, .TABLE_PTR CKEY_WORD_LEN]); | ; 
: 471 1041 5 RETURN; 
: 472 1062 4 END; 
3 473 1043 4 | 
oe IY - | 
> 476 1046 3 TABLE_PTR = .TABLE_PTR CKEY_WORD_NEXT] + ADDR_BASE; | 
> 477 1047 2 END; ; | 
: t3 1949 : RETURN 
> 480 1050 1 END; ! of routine EDTS$KEY_WORD | 
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keyword 


= look for a key word 


SCHMKEYWRD = Look for a 
SSKEY_WORD 


EDT 
EDT 


CHMKE YWRD 


EDTS 
v04-000 


dD 2 
EDTSCHMKEYWRD EDTSCHMKEYWRD = Look for a keyword 16-Sep-1984 00:03:17 AX-11 Bliss-32 V4.0-742 Page 17 EDT 
042000 EDTS$SKEY_ WORD = look for a key word 1a-8ep-19 4 99:93:45 YET SREICHRKEYWRD OL 124 a v04 
ENTITY_TABLE= P.ACS ; 
.EXTRN EDT$$B_CHAR_INFO : 
-EXTRN EDTSSA-CMD_END, EDTSS$SA_CMD_BUF : 
SEXTRN EDTSSIATER-ERR ; 
O3FC 00000 .ENTRY EDTSSKEY_WORD, Save R2,R3,R4,R5,R6,R7,RB,R9 ; 0897 ; 
59 9900000 G 99 9E 0002 MOV EDT$$B_CRAR_INFO : ; 
58 000000006 00 9€ 900 MOVAB EDTS$SA~CMD_BUF, RB : ; 
08 B6C D4 19 CLRL @KEY_NOM + 0958. ; 
53 6 DO 0001 MOVL EDTS$SA_CMD_BUF, C_POINTER + 0959 ; 
9A 0016 MOVZBL (C_POIRTERT+, FIRST CHA + 0960 | ; 
03 694 99 E1 01 BBC H! EDT$$B_CHAR_INFOLFIRST_CHAR], 1$ ; 0965 | ; 
5 C2 OO0O1E SUBL2 #32, FIRST~CHAR : ; 
01 1 04 AC CF 0021 1$ CASEL TABLE_NO, #1, #1 ; 0973, ; 
002A 000D 00026 2$ WORD 3$- oe : | ; 
000000006 00 09 Fe 208 A CALLS #0, EDTSSINTER_ERR : 0997 
00000041 = &F $2 D1 900 ; 3$ CPL FIRST _CHAR, #65 ; 0979) ; 
. | e 
QO0000SE aF 32 D1 sanes CPL FIRST _CHAR, #94 : ; 
50 FEOF CF 9E 00045 MOVAB VERB_TABLE, TABLE + 0981 
52 BF A2 H 00044 MOVAB 65 (Re), Re + 0982 
P | 
00000042 = BF D1 0090 4$: CMPL FIRST_CHAR, #66 + 0989. 
19 00057 5$: BLSS 13$ : | 
00000057 = &F 52 pi 90059 - cMPL f RST _CHAR, #87 : | 
Py | 
50 FF42 CF OE 00069 MOVAB ENTITY_TABLE, TABLE : 0991 | 
32 BE Ag 3 006 MOVAB 960 J, Ro 0992 | 
51 5 02 78 0006B 7$ ASHL #2, R2, TABLE_OFFSET : 
52 FBES CF 9€ O06 MOVAB ADDR_BASE 3 0993. 
6140 9F 00074 PUSHAB (TABCE_OFFSET)CTABLE) : 
50 52 9E ci 00077 ADDL3 a(SP)+> R2, TABLE_PTR : | 
54 05 AQ 9A 00078 Bs MOV ZBL (TABLE PTR), RG ; 1000 | 
51 06 AO 9& 00081 MOVAB 6(RO), KW_POINTER 1002 | 
53 68 DO 00085 MOVL § EDTS$A_CMB_BUF, C_POINTER : 1003 
57 1 DO 00088 MOVL. #1, FOOND > 1004 
2 53 4 C1 00088 ADDL3 4. C_POINTER, R2 + 1006 
000000006 00 2 D1 O08 CHPL Re EBTSSA_CMO_END : | 
g D4 0098 CLRL > 1010 
15 11 0009 BRB 1$ : 
5 9A 009¢ 9% MOVZBL (C_POINTER)+, CHAR : 1016 
03 694 0 €1 0009F BBC #0; ED'$$B_CHAR_INFOCCHAR], 108 > 1021 
5 0 C2 Q00A4 SUBL2 #32, CHAR : | 
36 1 9A QOOOA7 10$: . MOVZBL (KW POINTER)+, R6 : 1029. 
6 D1 QOOAA CMPL..—«s- CHAR, ~R6 : 
9 13 OAD BEQL ~ 11$ : 
D4 OOOAF CLRL  —« FOUND : 
£7 55 24 F3 081 11$:  §§AOBLEQ R4, |,. : 1019, 
09 7 f 08> BLBC FOUND. : 193 
08 8B 04 AO 9A 0 MOVZBL 4(TABLE_PTR)., @KEY_NUM > 1036 
6 54 C0 8b ADDL2 4, EDTS$A_CMD_BUF : 1040 | 
4 000C¢ RET aghe : 1035 | 


| ‘ 
ERISGARRETORD GRIER ~ Look for,9 tt7w0r$ itera Q0:03:1% wa bandas: S074 rior it] iat 


4 B93 «CF OO C1 12$: ADDR_BASE : 1046 

50 ef 60 ¢ C6 ADDL (TABLE, Te R4, TABLE_PTR : 
AF 11 CA BRB ; 1000) 
04 OO0CC 138: R + 1050) 


; Routine Size: 205 bytes, Routine Base: _EDTSCODE + 03A8 


; 481 1051 1 | 
; 482 1052 1 !<BLF/PAGE> 


if 2 
EDTSCHMKEYWRD EDTSCHMKEYWRD = Look for a keyword 6-S son~ 120% 90:93:17 AX-11 8 Ol leer v4. bs Page 19 EOT' 
v04-000 EDTSSKEY_WORD = look for a key word 4-Sep-1984 :22:37 EDT. SRCICHMKEYWRD.BLI;1 (4) v04 
484 1053 1 END ! of module EDTSCHMKEYWRD 
485 1054 1 
486 1055 0 ELUDOM 
PSECT SUMMARY | 
Name Bytes Attributes 
EDTSCODE 1141 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
: wee ooeose Symbols ereccec= Pages Processing | 
: File Total Loaded Percent Mapped Time 
; _$255$DUA28: (EDT. SRCJEDT.L32;1 377 68 18 40 00:00.2 | 
; =$255$DUA28:(CEDT. SRCIPSECTS. ig2;1 2 1 50 7 00:00.1 | 
: _$255$DUA28: sbeDT “SRC JTRANSLATE. “432 1 6 0 0 57 00:00.1 
: 7$255$0UA28:CEDT.SRCJSUPPORTS.L32; 1 2 1 50 5 00:00.1 


COMMAND QUALIFIERS 


BL a oe (FIELD, INITIAL OPTIMIZE) /NOTRACEBACK/LIS=L1S$: CHMKE YWRD/OBJ=OBJ$:CHMKEYWRD MSRC$:CHMKEYWRD.BLI/UPDATE=(ENHS:(C 


; Size: 205 code + 936 data bytes 
; Run Time: 00:29. 

: othe Time: 00:33.8 
; Lines/CPU Min: 2175 

; Lenenes/CPUMin: 11420 

: oY Used: 180 pages 
: poe ation Complete 
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